home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Readers / Gui4Cli / Docs / Tutorials / Sliders.gc < prev    next >
Text File  |  1997-12-02  |  896b  |  43 lines
  1. G4C
  2.  
  3. WinBig -1 -1 250 160 "Sliders.gc"
  4. WinType 11110001
  5. usetopaz
  6.  
  7. BOX 0 0 0 0 OUT RIDGE
  8.  
  9. xonLoad 
  10. GuiOpen Sliders.gc
  11.  
  12. xonClose
  13. GuiQuit Sliders.gc
  14.  
  15. Text 70 6 100 12 'Two Sliders' 14 BOX
  16. Text 30 134 200 12 'Yes, they are linked,' 22 NOBOX
  17. Text 30 144 200 12 '    just for fun.' 18 NOBOX
  18.  
  19. ; ---- A vertical slider
  20. ;      The arguments  ( C = Current ; S = ShowString )
  21. ;         L  T  W  H    Title     Var   Min Max C   S
  22. ;         |  |  |  |      |        |     |   |  |   |
  23. xVSlider 110 36 28 70 'Vertical' vslide  0  100 50 %ld%
  24. gadid 1
  25.  
  26. ; ---- The value of vslide is doubled, and the horizontal slider
  27. ;      is adjusted to match.
  28. s == $vslide * 2
  29. update Sliders.gc 2 $s
  30.  
  31.  
  32. ; ---- A horizontal slider
  33. xHSlider 58 120 140 10 'Hor' hslide 0 200 100 %ld%
  34. gadid 2
  35.  
  36. ; ---- The value of hslide is halved, and the vertical slider
  37. ;      is adjusted to match.
  38. s == $hslide / 2
  39. update Sliders.gc 1 $s
  40.  
  41.  
  42.  
  43.